home *** CD-ROM | disk | FTP | other *** search
/ QRZ! Ham Radio 8 / QRZ Ham Radio Callsign Database - Volume 8.iso / mac / files / dsp / dspkgctr.z / dspkgctr / gcc / symout.c < prev    next >
C/C++ Source or Header  |  1992-06-08  |  35KB  |  1,291 lines
  1. /* Output GDB-format symbol table information from GNU compiler.
  2.    Copyright (C) 1987, 1988 Free Software Foundation, Inc.
  3.  
  4.    $Id: symout.c,v 1.11 91/11/26 20:51:21 pete Exp $
  5.  
  6. This file is part of GNU CC.
  7.  
  8. GNU CC is free software; you can redistribute it and/or modify
  9. it under the terms of the GNU General Public License as published by
  10. the Free Software Foundation; either version 1, or (at your option)
  11. any later version.
  12.  
  13. GNU CC is distributed in the hope that it will be useful,
  14. but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16. GNU General Public License for more details.
  17.  
  18. You should have received a copy of the GNU General Public License
  19. along with GNU CC; see the file COPYING.  If not, write to
  20. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  21.  
  22.  
  23. #include "config.h"
  24. #include "tree.h"
  25. #include "symseg.h"
  26. #include "rtl.h"
  27. #include "gdbfiles.h"
  28. #include <stdio.h>
  29. #undef NULL
  30. /* <...> used here so one can prevent use of ./stddef.h
  31.    by changing the -I options used.  */
  32. #include <stddef.h>
  33.  
  34. #if ! defined( __GNUC__ ) && ! defined( __WATCOMC__ )
  35. #define offsetof(TYPE, MEMBER) ((size_t) &((TYPE *)0)->MEMBER)
  36. #endif
  37.  
  38. #if defined( __WATCOMC__ )
  39. #include <time.h>
  40. #endif
  41.  
  42. /* Get N_SO from stab.h if we can expect the file to exist.  */
  43. #ifdef DBX_DEBUGGING_INFO
  44. #ifdef USG
  45. #include "stab.h"  /* If doing DBX on sysV, use our own stab.h.  */
  46. #else
  47. #include <stab.h>  /* On BSD, use the system's stab.h.  */
  48. #endif /* not USG */
  49. #endif
  50.  
  51. /* .stabs code for source file name.  */
  52. #ifndef N_SO
  53. #define    N_SO 0x64
  54. #endif
  55.  
  56. /* Unix maximum on file name length.  Needed for getwd.  */
  57. #define MAXNAMLEN 1024
  58.  
  59. /* Get the number to output for a reference to type TYPE.  */
  60. #define TYPE_OUTPUT_ADDRESS(TYPE) \
  61.   TYPE_SYMTAB_ADDRESS (TYPE_MAIN_VARIANT (TYPE))
  62.  
  63. /* Stream for writing symbol table file.  */
  64. static FILE *symfile;
  65.  
  66. /* Name of symbol table file.  */
  67. static char *symfile_name;
  68.  
  69. /* Stream for writing to assembler file.  */
  70. static FILE *asmfile;
  71.  
  72. /* Address for allocating space in symbol table file.
  73.    Changes in this variable are paired globally with writes to symfile,
  74.    but often we allocate many structures, advancing next_address,
  75.    before writing any of them.  */
  76. static int next_address;
  77.  
  78. /* Chain recording all the types that have been output,
  79.    giving the address-in-the-symseg of each one.  */
  80.  
  81. struct typevec_elt
  82. {
  83.   int address;
  84.   struct typevec_elt *next;
  85. };
  86.  
  87. static struct typevec_elt *typevec;
  88.  
  89. /* Number of types recorded so far in the chain.  */
  90.  
  91. static int total_types;
  92.  
  93. /* Lists of types to which forward references have been made.
  94.    Separate lists for temporary and permanent types.  */
  95.  
  96. static tree temporary_fwd_refs;
  97. static tree permanent_fwd_refs;
  98.  
  99. /* `blockvec' is a chain recording all the symbol-blocks that have been output,
  100.    giving the address-in-the-symseg of each one.  */
  101.  
  102. struct blockvec_elt
  103. {
  104.   int address;
  105.   struct blockvec_elt *next;
  106. };
  107.  
  108. static struct blockvec_elt *blockvec;
  109.  
  110. /* Number of blocks recorded so far in the chain.  */
  111.  
  112. static int total_blocks;
  113.  
  114. #if defined( _MSDOS )
  115. void fatal( char * s, ... );
  116. #endif
  117.  
  118. static void symout_range_bounds ();
  119. static void symout_array_domain ();
  120. static void symout_record_fields ();
  121. static void symout_enum_values ();
  122. static void symout_record_field_names ();
  123. static void symout_enum_value_names ();
  124. static int subrange_p ();
  125. static void symout_strings_skip ();
  126. static void symout_strings_print ();
  127.  
  128. /* At the beginning of compilation, start writing the symbol table.
  129.    Initialize the type and block chain.
  130.    Also open and initialize the symseg file.  */
  131.  
  132. void
  133. symout_init (filename, asm_file, sourcename)
  134.      char *filename;
  135.      FILE *asm_file;
  136.      char *sourcename;
  137. {
  138.   struct symbol_root buffer;
  139.  
  140. #ifdef VMS
  141.   fatal ("Cannot write GDB debugging format on VMS");
  142. #endif
  143.  
  144.   asmfile = asm_file;
  145.   fprintf (asmfile, ".text 0\n.gdbbeg 0\n.gdbbeg 1\n");
  146.   fprintf (asmfile,
  147.        "Ltext:\t.stabs \"%s\",%d,0,0,Ltext\n",
  148.        sourcename, N_SO);
  149.   fprintf (asmfile, ".data 0\nLdata:\n");
  150.   ASM_OUTPUT_LOCAL (asmfile, "Lbss", 0, 0);
  151.   fprintf (asmfile, ".gdbsym Ldata,%d\n",
  152.        (char *) &buffer.databeg - (char *) &buffer);
  153.   fprintf (asmfile, ".gdbsym Lbss,%d\n",
  154.        (char *) &buffer.bssbeg - (char *) &buffer);
  155.  
  156.   symfile = fopen (filename, "w");
  157.   if (symfile == 0)
  158.     pfatal_with_name (filename);
  159.   symfile_name = (char *) malloc (strlen (filename) + 1);
  160.   strcpy (symfile_name, filename);
  161.  
  162.   typevec = 0;
  163.   blockvec = 0;
  164.   total_types = 0;
  165.   total_blocks = 0;
  166.  
  167.   permanent_fwd_refs = 0;
  168.   temporary_fwd_refs = 0;
  169.  
  170.   bzero (&buffer, sizeof buffer);
  171.   fwrite (&buffer, sizeof buffer, 1, symfile);
  172.  
  173.   next_address = sizeof buffer;
  174. }
  175.  
  176. /* Functions for outputting strings into the symbol table.
  177.    The string to be output is effectively the concatenation of
  178.    the two strings P1 and P2.  Their lengths are given as S1 and S2.
  179.    If P1 or P2 is zero, that string is not used.
  180.  
  181.    A null character is output to terminate the string,
  182.    and it is followed by more nulls as padding to a word boundary.  */
  183.  
  184. static void
  185. symout_strings (p1, s1, p2, s2)
  186.      char *p1;
  187.      int s1;
  188.      char *p2;
  189.      int s2;
  190. {
  191.   symout_strings_print (p1, s1, p2, s2);
  192.   symout_strings_skip (p1, s1, p2, s2);
  193. }
  194.  
  195. /* Like symout_strings but only output; do not update next_address.  */
  196.  
  197. static void
  198. symout_strings_print (p1, s1, p2, s2)
  199.      char *p1;
  200.      int s1;
  201.      char *p2;
  202.      int s2;
  203. {
  204.   register int total;
  205.  
  206.   if (p1 && s1 == 0)
  207.     s1 = strlen (p1);
  208.   if (p2 && s2 == 0)
  209.     s2 = strlen (p2);
  210.  
  211.   if (p1)
  212.     fwrite (p1, s1, 1, symfile);
  213.   if (p2)
  214.     fwrite (p2, s2, 1, symfile);
  215.   putc (0, symfile);
  216.  
  217.   total = s1 + s2 + 1;
  218.   while (total % sizeof (int))
  219.     {
  220.       putc (0, symfile);
  221.       total++;
  222.     }
  223. }
  224.  
  225. /* Like symout_strings but just update next_address; do not output.  */
  226.  
  227. static void
  228. symout_strings_skip (p1, s1, p2, s2)
  229.      char *p1;
  230.      int s1;
  231.      char *p2;
  232.      int s2;
  233. {
  234.   register int total;
  235.  
  236.   if (p1 && s1 == 0)
  237.     s1 = strlen (p1);
  238.   if (p2 && s2 == 0)
  239.     s2 = strlen (p2);
  240.  
  241.   total = s1 + s2 + 1;
  242.   while (total % sizeof (int))
  243.     total++;
  244.  
  245.   next_address += total;
  246. }
  247.  
  248. /* Call here to output a chain of types.
  249.    After each function, this is done first for the chain of permanent types
  250.    made during the function, and then for the chain of temporary types.
  251.    This must be done before outputting the symbols and blocks of the function.
  252.  
  253.    At the end of compilation, this is done for all the permanent types
  254.    made since the last function.
  255.  
  256.    Each permanent type is done once, at the beginning of the next function,
  257.    or at the end of the compilation if no functions follow.
  258.    Once a type has been processed here, its TYPE_SYMTAB_ADDRESS remains
  259.    set up.  */
  260.  
  261. void
  262. symout_types (types)
  263.      tree types;
  264. {
  265.   struct typerec
  266.   {
  267.     int number;
  268.     int address;
  269.     int nfields;
  270.     int fields_address;
  271.     int name_address;
  272.     char *name;
  273.     char *name_prefix;
  274.   };
  275.  
  276.   register int n_types, i;
  277.   register struct typerec *records;
  278.   register tree next;
  279.   struct type buffer;
  280.   int this_run_address = next_address;
  281.  
  282.   /* Count the number of types to be handled here.  */
  283.  
  284.   for (next = types, n_types = 0;
  285.        next;
  286.        next = TREE_CHAIN (next), n_types++);
  287.  
  288.   records = (struct typerec *) alloca (n_types * sizeof (struct typerec));
  289.  
  290.   /* Compute the amount of space each type needs, updating next_address
  291.      and storing the address of the data for each type.  */
  292.  
  293.   for (next = types, i = 0;
  294.        next;
  295.        next = TREE_CHAIN (next), i++)
  296.     {
  297.       register struct typevec_elt *velt
  298.     = (struct typevec_elt *) xmalloc (sizeof (struct typevec_elt));
  299.       velt->next = typevec;
  300.       typevec = velt;
  301.  
  302.       total_types++;
  303.  
  304.       if (TYPE_NAME (next))
  305.     {
  306.       records[i].name_address = next_address;
  307.  
  308.       if (TREE_CODE (TYPE_NAME (next)) == IDENTIFIER_NODE)
  309.         {
  310.           records[i].name = IDENTIFIER_POINTER (TYPE_NAME (next));
  311.           switch (TREE_CODE (next))
  312.         {
  313.         case RECORD_TYPE:
  314.           records[i].name_prefix = "struct ";
  315.           break;
  316.  
  317.         case UNION_TYPE:
  318.           records[i].name_prefix = "union ";
  319.           break;
  320.  
  321.         case ENUMERAL_TYPE:
  322.           records[i].name_prefix = "enum ";
  323.           break;
  324.         }
  325.         }
  326.       else
  327.         {
  328.           records[i].name = IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (next)));
  329.           records[i].name_prefix = 0;
  330.         }
  331.       symout_strings_skip (records[i].name_prefix, 0,
  332.                    records[i].name, 0);
  333.  
  334.     }
  335.       else
  336.     {
  337.       records[i].name = 0;
  338.       records[i].name_address = 0;
  339.       records[i].name_prefix = 0;
  340.     }
  341.  
  342.       /* If this type was forward-referenced from a previous call
  343.      to symout_types, store this type's address into the reference.  */
  344.       if (TYPE_POINTER_TO (next) != 0
  345.       && TYPE_SYMTAB_ADDRESS (TYPE_POINTER_TO (next)) != 0
  346.       && TYPE_SYMTAB_ADDRESS (TYPE_POINTER_TO (next)) < this_run_address)
  347.     {
  348.       int pos = ftell (symfile);
  349.       int myaddr = next_address;
  350.       fflush (symfile);
  351.       fseek (symfile,
  352.          (TYPE_SYMTAB_ADDRESS (TYPE_POINTER_TO (next))
  353. #if defined( _MSDOS ) || defined( MIPSEL )
  354.           + ((int)(((char*)&(((struct type*)0)->target_type))-
  355.                ((char*)0)))),
  356. #else
  357.           + offsetof (struct type, target_type)),
  358. #endif
  359.          0);
  360.       fwrite (&myaddr, sizeof (int), 1, symfile);
  361.       fflush (symfile);
  362.       fseek (symfile, pos, 0);
  363.     }
  364.  
  365.       records[i].address = next_address;
  366.       TYPE_SYMTAB_ADDRESS (next) = next_address;
  367.       velt->address = next_address;
  368.       next_address += sizeof (struct type);
  369.       records[i].nfields = 0;
  370.       records[i].fields_address = 0;
  371.       switch (TREE_CODE (next))
  372.     {
  373.     case ARRAY_TYPE:
  374.       records[i].nfields
  375.         = (TYPE_DOMAIN(next)
  376.            ? ! integer_zerop (TYPE_MIN_VALUE (TYPE_DOMAIN (next)))
  377.            : 0 );
  378.       break;
  379.  
  380.     case INTEGER_TYPE:
  381.       if (subrange_p (next))
  382.         buffer.nfields = 2;
  383.       break;
  384.  
  385.     case RECORD_TYPE:
  386.     case UNION_TYPE:
  387.     case ENUMERAL_TYPE:
  388.       records[i].nfields = list_length (TYPE_FIELDS (next));
  389.     }
  390.       if (records[i].nfields)
  391.     records[i].fields_address = next_address;
  392.       next_address += records[i].nfields * sizeof (struct field);
  393.     }
  394.  
  395.   /* Now write the data whose space we have assigned.
  396.      First fill the data into BUFFER, then write BUFFER.  */
  397.  
  398.   for (next = types, i = 0;
  399.        next;
  400.        next = TREE_CHAIN (next), i++)
  401.     {
  402.       if (records[i].name)
  403.     symout_strings_print (records[i].name_prefix, 0,
  404.                   records[i].name, 0);
  405.  
  406.       if (TREE_TYPE (next) != 0 && TYPE_OUTPUT_ADDRESS (TREE_TYPE (next)) == 0)
  407.     {
  408.       /* We are making a forward-reference to our target type.
  409.          Make a list of all of these.  */
  410.       if (TREE_PERMANENT (next))
  411.         permanent_fwd_refs
  412.           = perm_tree_cons (TREE_TYPE (next), 0, permanent_fwd_refs);
  413.       else
  414.         temporary_fwd_refs
  415.           = tree_cons (TREE_TYPE (next), 0, temporary_fwd_refs);
  416.     }
  417.  
  418.       if (TYPE_SIZE (next) == 0)
  419.     buffer.length = 0;
  420.       else
  421.     buffer.length
  422.       = (TREE_INT_CST_LOW (TYPE_SIZE (next))
  423.          * TYPE_SIZE_UNIT (next) / BITS_PER_UNIT);
  424.  
  425.       buffer.name = (char *) records[i].name_address;
  426.       buffer.target_type = (struct type *) (TREE_TYPE (next) ? TYPE_OUTPUT_ADDRESS (TREE_TYPE (next)) : 0);
  427.  
  428.       buffer.pointer_type = 0;
  429.       buffer.function_type = 0;
  430.       buffer.flags
  431.     = ((TREE_CODE (next) == INTEGER_TYPE || TREE_CODE (next) == ENUMERAL_TYPE)
  432.        && TREE_UNSIGNED (next))
  433.       ? TYPE_FLAG_UNSIGNED : 0;
  434.       buffer.nfields = records[i].nfields;
  435.       buffer.fields = (struct field *) records[i].fields_address;
  436.  
  437.       switch (TREE_CODE (next))
  438.     {
  439.     case INTEGER_TYPE:
  440.       buffer.code = TYPE_CODE_INT;
  441.       if (buffer.nfields)
  442.         buffer.code = TYPE_CODE_RANGE;
  443.       break;
  444.  
  445.     case REAL_TYPE:
  446.       buffer.code = TYPE_CODE_FLT;
  447.       break;
  448.  
  449.     case VOID_TYPE:
  450.       buffer.code = TYPE_CODE_VOID;
  451.       break;
  452.  
  453.     case POINTER_TYPE:
  454.       buffer.code = TYPE_CODE_PTR;
  455.       break;
  456.  
  457.     case ARRAY_TYPE:
  458.       if (buffer.nfields == 0)
  459.         buffer.code = TYPE_CODE_ARRAY;
  460.       else
  461.         buffer.code = TYPE_CODE_PASCAL_ARRAY;
  462.       break;
  463.  
  464.     case RECORD_TYPE:
  465.       buffer.code = TYPE_CODE_STRUCT;
  466.       break;
  467.  
  468.     case UNION_TYPE:
  469.       buffer.code = TYPE_CODE_UNION;
  470.       break;
  471.  
  472.     case FUNCTION_TYPE:
  473.       buffer.code = TYPE_CODE_FUNC;
  474.       break;
  475.  
  476.     case ENUMERAL_TYPE:
  477.       buffer.code = TYPE_CODE_ENUM;
  478.       break;
  479.  
  480.     default:
  481.       abort ();
  482.     }
  483.  
  484.       fwrite (&buffer, sizeof buffer, 1, symfile);
  485.  
  486.       /* Now write the `struct field's that certain kinds of type have.
  487.      This allocates space for the names of those fields,
  488.      incrementing next_address for the names.  */
  489.  
  490.       switch (TREE_CODE (next))
  491.     {
  492.     case ARRAY_TYPE:
  493.       if (buffer.nfields)
  494.         symout_array_domain (next);
  495.       break;
  496.  
  497.     case RECORD_TYPE:
  498.     case UNION_TYPE:
  499.       symout_record_fields (next);
  500.       break;
  501.  
  502.     case ENUMERAL_TYPE:
  503.       symout_enum_values (next);
  504.       break;
  505.  
  506.     case INTEGER_TYPE:
  507.       if (buffer.nfields)
  508.         symout_range_bounds (next);
  509.     }
  510.     }
  511.  
  512.   /* Now output the strings referred to by the fields of certain types.
  513.      (next_address was already updated for these strings.)  */
  514.  
  515.   for (next = types, i = 0;
  516.        next;
  517.        next = TREE_CHAIN (next), i++)
  518.     {
  519.       switch (TREE_CODE (next))
  520.     {
  521.     case RECORD_TYPE:
  522.     case UNION_TYPE:
  523.       symout_record_field_names (next);
  524.       break;
  525.  
  526.     case ENUMERAL_TYPE:
  527.       symout_enum_value_names (next);
  528.       break;
  529.     }
  530.     }
  531. }
  532.  
  533. /* Given a list of types TYPES, return a chain of just those
  534.    that haven't been written in the symbol table.  */
  535.  
  536. static tree
  537. filter_undefined_types (types)
  538.      tree types;
  539. {
  540.   tree new = 0;
  541.   tree next;
  542.  
  543.   for (next = types; next; next = TREE_CHAIN (next))
  544.     if (TYPE_SYMTAB_ADDRESS (TREE_PURPOSE (next)) == 0)
  545.       {
  546.     TREE_CHAIN (TREE_PURPOSE (next)) = new;
  547.     new = TREE_PURPOSE (next);
  548.       }
  549.  
  550.   return new;
  551. }
  552.  
  553. /* Return nonzero if TYPE's range of possible values
  554.    is not the full range allowed by the number of bits it has.
  555.    TYPE is assumed to be an INTEGER_TYPE or ENUMERAL_TYPE.  */
  556.  
  557. static int
  558. subrange_p (type)
  559.      tree type;
  560. {
  561.   int uns = TREE_UNSIGNED (type);
  562.  
  563.   if (TYPE_PRECISION (type) >= HOST_BITS_PER_INT)
  564.     {
  565.       if (uns)
  566.     return integer_zerop (TYPE_MIN_VALUE (type))
  567.       && TREE_INT_CST_LOW (TYPE_MAX_VALUE (type)) == 0
  568.         && (TREE_INT_CST_HIGH (TYPE_MAX_VALUE (type))
  569.         == (1 << (TYPE_PRECISION (type) - HOST_BITS_PER_INT)) - 1);
  570.       return TREE_INT_CST_LOW (TYPE_MIN_VALUE (type)) == 0
  571.     && TREE_INT_CST_LOW (TYPE_MAX_VALUE (type)) == 0
  572.       && (TREE_INT_CST_HIGH (TYPE_MIN_VALUE (type))
  573.           == (-1) << (TYPE_PRECISION (type) - 1 - HOST_BITS_PER_INT))
  574.         && (TREE_INT_CST_HIGH (TYPE_MAX_VALUE (type))
  575.         == (1 << (TYPE_PRECISION (type) - 1 - HOST_BITS_PER_INT)) - 1);
  576.     }
  577.  
  578.   if (uns)
  579.     {
  580.       int mask;
  581.  
  582.       if (TYPE_PRECISION (type) == HOST_BITS_PER_INT)
  583.     /* Shifting by 32 loses on some machines.  */
  584.     mask = -1;
  585.       else
  586.     mask = (1 << TYPE_PRECISION (type)) - 1;
  587.  
  588.       return (integer_zerop (TYPE_MIN_VALUE (type))
  589.           && (TREE_INT_CST_LOW (TYPE_MAX_VALUE (type)) == mask));
  590.     }
  591.   else
  592.     return ((TREE_INT_CST_LOW (TYPE_MIN_VALUE (type))
  593.          == (-1) << (TYPE_PRECISION (type) - 1))
  594.         && (TREE_INT_CST_LOW (TYPE_MAX_VALUE (type))
  595.         == (1 << (TYPE_PRECISION (type) - 1)) - 1));
  596. }
  597.  
  598. /* Functions to output the "fields" of various kinds of types.
  599.    These assume that next_address has already been incremented to
  600.    cover these fields, and the fields of all the other types being
  601.    output in this batch; so next_address can be used to allocate
  602.    space to store field names, etc.  */
  603.  
  604. static void
  605. symout_array_domain (type)
  606.      tree type;
  607. {
  608.   struct field buffer;
  609.  
  610.   buffer.bitpos = 0;
  611.   buffer.bitsize = 0;
  612.   buffer.type = (struct type *) TYPE_OUTPUT_ADDRESS (TYPE_DOMAIN (type));
  613.   buffer.name = 0;
  614.   fwrite (&buffer, sizeof (struct field), 1, symfile);
  615. }
  616.  
  617. static void
  618. symout_range_bounds (type)
  619.      tree type;
  620. {
  621.   struct field buffer;
  622.  
  623.   buffer.bitpos = TREE_INT_CST_LOW (TYPE_MIN_VALUE (type));
  624.   buffer.bitsize = 0;
  625.   buffer.type = (struct type *) TYPE_OUTPUT_ADDRESS (type);
  626.   buffer.name = 0;
  627.   fwrite (&buffer, sizeof (struct field), 1, symfile);
  628.  
  629.   buffer.bitpos = TREE_INT_CST_LOW (TYPE_MAX_VALUE (type));
  630.   buffer.bitsize = 0;
  631.   buffer.type = (struct type *) TYPE_OUTPUT_ADDRESS (type);
  632.   buffer.name = 0;
  633.   fwrite (&buffer, sizeof (struct field), 1, symfile);
  634. }
  635.  
  636. static void
  637. symout_record_fields (type)
  638.      tree type;
  639. {
  640.   struct field buffer;
  641.   register tree field;
  642.  
  643.   for (field = TYPE_FIELDS (type); field; field = TREE_CHAIN (field))
  644.     {
  645.       buffer.bitpos = DECL_OFFSET (field);
  646.       buffer.bitsize
  647.     = (TREE_PACKED (field)
  648.        ? TREE_INT_CST_LOW (DECL_SIZE (field)) * DECL_SIZE_UNIT (field)
  649.        : 0);
  650.       buffer.type = (struct type *) TYPE_OUTPUT_ADDRESS (TREE_TYPE (field));
  651.       if (DECL_NAME (field))
  652.     {
  653.       buffer.name = (char *) next_address;
  654.       symout_strings_skip (0, IDENTIFIER_LENGTH (DECL_NAME (field)), 0, 0);
  655.     }
  656.       else
  657.     buffer.name = 0;
  658.       fwrite (&buffer, sizeof (struct field), 1, symfile);
  659.     }
  660. }
  661.  
  662. static void
  663. symout_enum_values (type)
  664.      tree type;
  665. {
  666.   struct field buffer;
  667.   register tree link, value;
  668.  
  669.   for (link = TYPE_VALUES (type); link; link = TREE_CHAIN (link))
  670.     {
  671.       value = TREE_VALUE (link);
  672.       buffer.bitpos = TREE_INT_CST_LOW (value);
  673.       buffer.bitsize = 0;
  674.       buffer.type = (struct type *) TYPE_OUTPUT_ADDRESS (type);
  675.       buffer.name = (char *) next_address;
  676.       symout_strings_skip (0, IDENTIFIER_LENGTH (TREE_PURPOSE (link)), 0, 0);
  677.       fwrite (&buffer, sizeof buffer, 1, symfile);
  678.     }
  679. }
  680.  
  681. /* Output field names or value names for the fields of a type.
  682.    This is called, for the types that need it, after the fields
  683.    have been output for all the types in the batch.
  684.    We do not update next_address here, because it has already been 
  685.    updated for all the names in all the fields in all the types.  */
  686.  
  687. static void
  688. symout_record_field_names (type)
  689.      tree type;
  690. {
  691.   register tree field;
  692.  
  693.   for (field = TYPE_FIELDS (type); field; field = TREE_CHAIN (field))
  694.     if (DECL_NAME (field))
  695.       symout_strings_print (IDENTIFIER_POINTER (DECL_NAME (field)),
  696.                 IDENTIFIER_LENGTH (DECL_NAME (field)),
  697.                 0, 0);
  698. }
  699.  
  700. static void
  701. symout_enum_value_names (type)
  702.      tree type;
  703. {
  704.   register tree value;
  705.  
  706.   for (value = TYPE_VALUES (type); value; value = TREE_CHAIN (value))
  707.     symout_strings_print (IDENTIFIER_POINTER (TREE_PURPOSE (value)),
  708.               IDENTIFIER_LENGTH (TREE_PURPOSE (value)),
  709.               0, 0);
  710. }
  711.  
  712. /* Output the symbols of a block, given the list of decl nodes.
  713.    Store the file addresses at which the symbols are output
  714.    into ADDR_BUFFER, a vector which has just the right length.
  715.  
  716.    If FILTER is 1, do only the private symbols in DECLS.
  717.    If FILTER is 2, do only the public ones (but no externals).
  718.    If FILTER is 0, do all (except external functions).  */
  719.  
  720. static void
  721. symout_block_symbols (decls, addr_buffer, filter)
  722.      tree decls;
  723.      int *addr_buffer;
  724.      int filter;
  725. {
  726.   register tree decl;
  727.   struct symbol buffer;
  728.   register int i;
  729.  
  730.   for (decl = decls, i = 0; decl; decl = TREE_CHAIN (decl))
  731.     {
  732.       register int name_address = next_address;
  733.  
  734.       if (filter == (TREE_PUBLIC (decl) ? 1 : 2))
  735.     continue;
  736.  
  737.       /* Do not mention external functions.
  738.      Let their own files mention them.
  739.      In the top blocks, don't mention external anything.  */
  740.  
  741.       if (TREE_EXTERNAL (decl)
  742.       && (filter || TREE_CODE (TREE_TYPE (decl)) == FUNCTION_TYPE))
  743.     continue;
  744.  
  745.       if (TREE_TYPE (decl) == error_mark_node)
  746.     continue;
  747.  
  748.       symout_strings (IDENTIFIER_POINTER (DECL_NAME (decl)),
  749.               IDENTIFIER_LENGTH (DECL_NAME (decl)),
  750.               0, 0);
  751.       addr_buffer[i] = next_address;
  752.       buffer.name = (char *) name_address;
  753.       buffer.namespace = VAR_NAMESPACE;
  754.       buffer.type = (struct type *) TYPE_OUTPUT_ADDRESS (TREE_TYPE (decl));
  755.       switch (TREE_CODE (decl))
  756.     {
  757.     case PARM_DECL:
  758.       buffer.class = LOC_ARG;
  759.       buffer.value.value = DECL_OFFSET (decl) / BITS_PER_UNIT;
  760.       break;
  761.  
  762.     case VAR_DECL:
  763.     case RESULT_DECL:
  764.       if (TREE_STATIC (decl) || TREE_EXTERNAL (decl))
  765.         {
  766.           if (! TREE_PUBLIC (decl) || DECL_INITIAL (decl))
  767.         {
  768.           char *str = XSTR (XEXP (DECL_RTL (decl), 0), 0);
  769.           fprintf (asmfile, "\t.gdbsym ");
  770.           ASM_OUTPUT_LABELREF (asmfile, str);
  771.           fprintf (asmfile, ",%d\n",
  772.                next_address + (char *)&buffer.value - (char *)&buffer);
  773.           buffer.class = LOC_STATIC;
  774.         }
  775.           else
  776.         /* Uninitialized public symbols are output as .comm;
  777.            Tell GDB to get address from loader global symbol.
  778.            Also come here for symbols declared extern.  */
  779.         buffer.class = LOC_EXTERNAL;
  780.         }
  781.       else
  782.         {
  783.           if (GET_CODE (DECL_RTL (decl)) == REG)
  784.         {
  785.           buffer.class = LOC_REGISTER;
  786.           buffer.value.value = REGNO (DECL_RTL (decl));
  787.           /* Detect vars that were optimized entirely away.  */
  788.           if (buffer.value.value == -1)
  789.             buffer.class = LOC_CONST;
  790.         }
  791.           else if (GET_CODE (DECL_RTL (decl)) == MEM
  792.                && (GET_CODE (XEXP (DECL_RTL (decl), 0)) == MEM
  793.                || (GET_CODE (XEXP (DECL_RTL (decl), 0)) == REG
  794.                    && REGNO (XEXP (DECL_RTL (decl), 0)) != FRAME_POINTER_REGNUM)))
  795.         /* If the value is indirect by memory or by a register
  796.            that isn't the frame pointer
  797.            then it means the object is variable-sized and address through
  798.            that register or stack slot.
  799.            If we have a pointer-type (which we should, for an array),
  800.            output the variable as a pointer.
  801.            Otherwise ignore it, since it is hard to create the ptr
  802.            type now and output it, and -gg is being retired.  */
  803.         {
  804.           tree ptype = TYPE_POINTER_TO (TREE_TYPE (TREE_TYPE (decl)));
  805.           if (ptype == 0
  806.               || TYPE_OUTPUT_ADDRESS (ptype) == 0)
  807.             continue;
  808.  
  809.           buffer.type = (struct type *) TYPE_OUTPUT_ADDRESS (ptype);
  810.  
  811.  
  812.           if (GET_CODE (XEXP (DECL_RTL (decl), 0)) == REG)
  813.             {
  814.               buffer.class = LOC_REGISTER;
  815.               buffer.value.value = REGNO (DECL_RTL (decl));
  816.               /* Detect vars that were optimized entirely away.  */
  817.               if (buffer.value.value == -1)
  818.             buffer.class = LOC_CONST;
  819.             }
  820.           else
  821.             {
  822.               register rtx addr = XEXP (DECL_RTL (decl), 0);
  823.               if (GET_CODE (addr) != PLUS && GET_CODE (addr) != MINUS)
  824.             abort ();
  825.               if (GET_CODE (XEXP (addr, 1)) != CONST_INT)
  826.             abort ();
  827.               buffer.class = LOC_LOCAL;
  828.               buffer.value.value = INTVAL (XEXP (addr, 1));
  829.               if (GET_CODE (addr) == MINUS)
  830.             buffer.value.value = - buffer.value.value;
  831.             }
  832.         }
  833.           /* Locals in memory are expected to be addressed as
  834.          (PLUS (REG ...) (CONST_INT ...)).
  835.          Bomb out if that is not so.  */
  836.           else if (GET_CODE (DECL_RTL (decl)) == MEM)
  837.         {
  838.           register rtx addr = XEXP (DECL_RTL (decl), 0);
  839.           if (GET_CODE (addr) != PLUS && GET_CODE (addr) != MINUS)
  840.             abort ();
  841.           if (GET_CODE (XEXP (addr, 1)) != CONST_INT)
  842.             abort ();
  843.           buffer.class = LOC_LOCAL;
  844.           buffer.value.value = INTVAL (XEXP (addr, 1));
  845.           if (GET_CODE (addr) == MINUS)
  846.             buffer.value.value = - buffer.value.value;
  847.         }
  848.           else
  849.         abort ();
  850.         }
  851.       break;
  852.  
  853.     case TYPE_DECL:
  854.       buffer.class = LOC_TYPEDEF;
  855.       buffer.value.value = 0;
  856.       break;
  857.  
  858.     case CONST_DECL:
  859.       buffer.class = LOC_CONST;
  860.       buffer.value.value = TREE_INT_CST_LOW (DECL_INITIAL (decl));
  861.       break;
  862.  
  863.     case FUNCTION_DECL:
  864.       if (DECL_INITIAL (decl))
  865.         {
  866.           buffer.class = LOC_BLOCK;
  867.           buffer.value.value = DECL_BLOCK_SYMTAB_ADDRESS (decl);
  868.         }
  869.       else
  870.         buffer.class = LOC_EXTERNAL;
  871.     }
  872.  
  873.       fwrite (&buffer, sizeof buffer, 1, symfile);
  874.       next_address += sizeof buffer;
  875.       i++;
  876.     }
  877. }
  878.  
  879. /* Output the tags (struct, union and enum definitions) for a block,
  880.    given a list of them (a chain of TREE_LIST nodes) in TAGS.
  881.    Store their addresses in the file into ADDR_BUFFER.  */
  882.  
  883. static void
  884. symout_block_tags (tags, addr_buffer)
  885.      tree tags;
  886.      int *addr_buffer;
  887. {
  888.   register tree tag;
  889.   struct symbol buffer;
  890.   register int i;
  891.  
  892.   for (tag = tags, i = 0; tag; tag = TREE_CHAIN (tag), i++)
  893.     {
  894.       buffer.name = (char *) next_address;
  895.  
  896.       symout_strings (IDENTIFIER_POINTER (TREE_PURPOSE (tag)),
  897.               IDENTIFIER_LENGTH (TREE_PURPOSE (tag)),
  898.               0, 0);
  899.       addr_buffer[i] = next_address;
  900.       buffer.namespace = STRUCT_NAMESPACE;
  901.       buffer.type = (struct type *) TYPE_OUTPUT_ADDRESS (TREE_VALUE (tag));
  902.       buffer.class = LOC_TYPEDEF;
  903.       buffer.value.value = 0;
  904.  
  905.       fwrite (&buffer, sizeof buffer, 1, symfile);
  906.       next_address += sizeof buffer;
  907.     }
  908. }
  909.  
  910. /* Output all the data structure for a "block"
  911.    (any binding contour).
  912.    DECLS is the chain of declarations of variables in this block.
  913.    TAGS is the list of struct, union and enum tag definitions of this block.
  914.    SUPERBLOCK_ADDRESS is the symtab file address of the containing block's
  915.    data structure.  */
  916.  
  917. int
  918. symout_block (decls, tags, args, superblock_address)
  919.      tree decls;
  920.      tree tags;
  921.      tree args;
  922.      int superblock_address;
  923. {
  924.   register tree decl;
  925.   register int i;
  926.   register int *addr_buffer;
  927.   struct block buffer;
  928.   int n_decls, n_tags, n_args, total;
  929.   register struct blockvec_elt *velt;
  930.   int block_address;
  931.  
  932.   for (decl = decls, i = 0; decl; decl = TREE_CHAIN (decl))
  933.     if (! TREE_EXTERNAL (decl)
  934.     || TREE_CODE (TREE_TYPE (decl)) != FUNCTION_TYPE)
  935.       i++;
  936.  
  937.   n_decls = i;
  938.  
  939.   for (decl = args, i = 0; decl; decl = TREE_CHAIN (decl), i++);
  940.   n_args = i;
  941.  
  942.   for (decl = tags, i = 0; decl; decl = TREE_CHAIN (decl), i++);
  943.   n_tags = i;
  944.  
  945.   total = n_decls + n_args + n_tags;
  946.  
  947.   addr_buffer = (int *) alloca (total * sizeof (int));
  948.  
  949.   symout_block_symbols (args, addr_buffer, 0);
  950.   symout_block_symbols (decls, addr_buffer + n_args, 0);
  951.   symout_block_tags (tags, addr_buffer + n_decls + n_args);
  952.  
  953.   velt = (struct blockvec_elt *) xmalloc (sizeof (struct blockvec_elt));
  954.   velt->next = blockvec;
  955.   velt->address = next_address;
  956.   blockvec = velt;
  957.  
  958.   buffer.startaddr = 0;
  959.   buffer.endaddr = 0;
  960.   buffer.superblock = (struct block *) superblock_address;
  961.   buffer.function = 0;
  962.   buffer.nsyms = total;
  963.  
  964.   block_address = next_address;
  965.   fwrite (&buffer, sizeof buffer - sizeof buffer.sym, 1, symfile);
  966.   next_address += sizeof buffer - sizeof buffer.sym;
  967.  
  968.   fwrite (addr_buffer, sizeof (int), total, symfile);
  969.   next_address += total * sizeof (int);
  970.  
  971.   fprintf (asmfile, "\t.gdbblock %d,%d\n", total_blocks + 2, block_address);
  972.   total_blocks++;
  973.  
  974.   return block_address;
  975. }
  976.  
  977. /* Walk STMT, the body of a function, and output symtab data on
  978.    all the blocks that compose it and all symbols inside them.
  979.    ARGS is a chain of decls for argument variables of the function.
  980.    SUPERBLOCK_ADDRESS is the address of symbol data for the
  981.    innermost block containing STMT; it is used for recursive calls,
  982.    and is always 0 for the outermost call (since the containing
  983.    block for a function is output later than the function).  */
  984.  
  985. int
  986. symout_function (stmt, args, superblock_address)
  987.      register tree stmt;
  988.      tree args;
  989.      int superblock_address;
  990. {
  991.   int address = superblock_address;
  992.  
  993.   while (stmt)
  994.     {
  995.       switch (TREE_CODE (stmt))
  996.     {
  997.     case COMPOUND_STMT:
  998.     case LOOP_STMT:
  999.       symout_function (STMT_BODY (stmt), 0, address);
  1000.       break;
  1001.  
  1002.     case IF_STMT:
  1003.       symout_function (STMT_THEN (stmt), 0, address);
  1004.       symout_function (STMT_ELSE (stmt), 0, address);
  1005.       break;
  1006.  
  1007.     case LET_STMT:
  1008.       /* Ignore LET_STMTs for blocks never really used to make RTL.  */
  1009.       if (! TREE_USED (stmt))
  1010.         break;
  1011.       address =
  1012.         symout_block (STMT_VARS (stmt), STMT_TYPE_TAGS (stmt), args,
  1013.               superblock_address);
  1014.  
  1015.       symout_function (STMT_SUBBLOCKS (stmt), 0, address);
  1016.     }
  1017.       stmt = TREE_CHAIN (stmt);
  1018.     }
  1019.   return address;
  1020. }
  1021.  
  1022. symout_function_end ()
  1023. {
  1024.   /* Output dummy entries for any undefined structure references.  */
  1025.   symout_types (filter_undefined_types (temporary_fwd_refs));
  1026.   temporary_fwd_refs = 0;
  1027. }
  1028.  
  1029. /* Output all the data structure for a top two blocks in a compilation.
  1030.    The top block is for public (global) symbols;
  1031.    the next one is for private (this file only) symbols.
  1032.  
  1033.    DECLS is the chain of declarations of variables in this block.
  1034.    TAGS is the list of struct, union and enum tag definitions.  */
  1035.  
  1036. void
  1037. symout_top_blocks (decls, tags)
  1038.      tree decls;
  1039.      tree tags;
  1040. {
  1041.   register tree decl;
  1042.   register int i;
  1043.   register int *addr_buffer;
  1044.   struct block buffer;
  1045.   int n_decls, n_tags;
  1046.   register struct blockvec_elt *velt;
  1047.   int top_block_addr;
  1048.  
  1049.   /* First do the public-symbols block.  */
  1050.  
  1051.   for (decl = decls, i = 0; decl; decl = TREE_CHAIN (decl))
  1052.     if (TREE_PUBLIC (decl) && ! TREE_EXTERNAL (decl))
  1053.       i++;
  1054.   n_decls = i;
  1055.  
  1056.   addr_buffer = (int *) alloca (n_decls * sizeof (int));
  1057.  
  1058.   symout_block_symbols (decls, addr_buffer, 2);
  1059.  
  1060.   fprintf (asmfile, ".text 0\n\t.gdbend 0\n");
  1061.   fprintf (asmfile, "\t.gdbblock 0,%d\n", next_address);
  1062.  
  1063.   total_blocks++;
  1064.   velt = (struct blockvec_elt *) xmalloc (sizeof (struct blockvec_elt));
  1065.   velt->next = blockvec;
  1066.   velt->address = next_address;
  1067.   blockvec = velt;
  1068.  
  1069.   top_block_addr = next_address;
  1070.  
  1071.   buffer.startaddr = 0;
  1072.   buffer.endaddr = 0;
  1073.   buffer.superblock = 0;
  1074.   buffer.function = 0;
  1075.   buffer.nsyms = n_decls;;
  1076.  
  1077.   fwrite (&buffer, sizeof buffer - sizeof buffer.sym, 1, symfile);
  1078.   next_address += sizeof buffer - sizeof buffer.sym;
  1079.  
  1080.   fwrite (addr_buffer, sizeof (int), n_decls, symfile);
  1081.   next_address += n_decls * sizeof (int);
  1082.  
  1083.   /* Next do the private-symbols block.  */
  1084.  
  1085.   for (decl = decls, i = 0; decl; decl = TREE_CHAIN (decl))
  1086.     if (! TREE_PUBLIC (decl) && ! TREE_EXTERNAL (decl))
  1087.       i++;
  1088.   n_decls = i;
  1089.  
  1090.   for (decl = tags, i = 0; decl; decl = TREE_CHAIN (decl), i++);
  1091.   n_tags = i;
  1092.  
  1093.   addr_buffer = (int *) alloca ((n_decls + n_tags) * sizeof (int));
  1094.  
  1095.   symout_block_symbols (decls, addr_buffer, 1);
  1096.   symout_block_tags (tags, addr_buffer + n_decls);
  1097.  
  1098.   fprintf (asmfile, "\t.gdbend 1\n");
  1099.   fprintf (asmfile, "\t.gdbblock 1,%d\n", next_address);
  1100.  
  1101.   total_blocks++;
  1102.   velt = (struct blockvec_elt *) xmalloc (sizeof (struct blockvec_elt));
  1103.   velt->next = blockvec;
  1104.   velt->address = next_address;
  1105.   blockvec = velt;
  1106.  
  1107.   buffer.startaddr = 0;
  1108.   buffer.endaddr = 0;
  1109.   buffer.superblock = (struct block *) top_block_addr;
  1110.   buffer.function = 0;
  1111.   buffer.nsyms = n_decls + n_tags;;
  1112.  
  1113.   fwrite (&buffer, sizeof buffer - sizeof buffer.sym, 1, symfile);
  1114.   next_address += sizeof buffer - sizeof buffer.sym;
  1115.  
  1116.   fwrite (addr_buffer, sizeof (int), n_decls + n_tags, symfile);
  1117.   next_address += (n_decls + n_tags) * sizeof (int);
  1118. }
  1119.  
  1120. /* Output the source-line-number information.  */
  1121.  
  1122. /* Output a `struct source' for the source file described by F.
  1123.    Return the address-in-the-symseg of the `struct source'.  */
  1124.  
  1125. static int
  1126. symout_source_file (f)
  1127.      struct gdbfile *f;
  1128. {
  1129.   /* Make the `struct source' big enough for as many lines as
  1130.      this file has.  */
  1131.   int size = sizeof (struct source) + (f->nlines - 1) * sizeof (struct line);
  1132.   struct source *buffer
  1133.     = (struct source *) alloca (size);
  1134.   int addr;
  1135.  
  1136.   /* Use zero for the line data, since assembler will store the real data.  */
  1137.   bzero (buffer, size);
  1138.  
  1139.   /* Output the file's name as a string.  The assembler doesn't know this.  */
  1140.   buffer->name = (char *) next_address;
  1141.   symout_strings (f->name, 0, 0, 0);
  1142.   buffer->nlines = f->nlines;
  1143.  
  1144.   /* Write the structure.  */
  1145.   addr = next_address;
  1146.   fwrite (buffer, 1, size, symfile);
  1147.   next_address += size;
  1148.  
  1149.   /* Tell assembler where to write the real line-number data.  */
  1150.   fprintf (asmfile, "\t.gdblinetab %d,%d\n",
  1151.        f->filenum, addr + sizeof (int));
  1152.  
  1153.   return addr;
  1154. }
  1155.  
  1156. /* Output the `struct sourcevector' which describes all the
  1157.    source files and points a `struct source' for each one.  */
  1158.  
  1159. static int
  1160. symout_sources ()
  1161. {
  1162.   register struct gdbfile *f;
  1163.   int nfiles = 0;
  1164.   struct sourcevector *s;
  1165.   int i;
  1166.   int size;
  1167.   int addr;
  1168.  
  1169.   /* Count number of files to determine size of the sourcevector.  */
  1170.   for (f = gdbfiles; f; f = f->next)
  1171.     ++nfiles;
  1172.  
  1173.   /* Allocate buffer for the sourcevector and record its length.  */
  1174.   size = sizeof (int) + nfiles * sizeof (struct source *);
  1175.   s = (struct sourcevector *) alloca (size);
  1176.   s->length = nfiles;
  1177.  
  1178.   /* Output a `struct source' for each file; put address into sourcevector.  */
  1179.   for (f = gdbfiles, i = 0; f; f = f->next, i++)
  1180.     s->source[i] = (struct source *) symout_source_file (f);
  1181.  
  1182.   /* Output the sourcevector.  */
  1183.   addr = next_address;
  1184.   fwrite (s, 1, size, symfile);
  1185.   next_address += size;
  1186.   return addr;
  1187. }
  1188.  
  1189. /* Call here at the end of compilation, after outputting all the
  1190.    blocks and symbols, to output the blockvector and typevector
  1191.    and close the symbol table file.  FILETIME is source file's
  1192.    creation time.  */
  1193.  
  1194. void
  1195. symout_finish (filename, filetime)
  1196.      char *filename;
  1197.      int filetime;
  1198. {
  1199.   int *blockvector = (int *) alloca ((total_blocks + 1) * sizeof (int));
  1200.   int *typevector;
  1201.   int now = time (0);
  1202.   register int i;
  1203.   struct symbol_root buffer;
  1204.   char dir[MAXNAMLEN];
  1205.  
  1206.   /* Output dummy entries for any undefined structure references.  */
  1207.   symout_types (filter_undefined_types (permanent_fwd_refs));
  1208.  
  1209.   typevector = (int *) alloca ((total_types + 1) * sizeof (int));
  1210.  
  1211.   buffer.language = language_c;
  1212.   buffer.blockvector = (struct blockvector *) next_address;
  1213.  
  1214.   /* The two blocks at the beginning of the chain
  1215.      are the file's private symbols block and public symbols block.
  1216.      They belong at the front of the blockvector, in that order.  */
  1217.   blockvector[2] = blockvec->address;
  1218.   blockvec = blockvec->next;
  1219.   blockvector[1] = blockvec->address;
  1220.   blockvec = blockvec->next;
  1221.  
  1222.   /* The rest of the blocks are in the chain in reverse order.  */
  1223.   for (i = total_blocks; i > 2; i--)
  1224.     {
  1225.       blockvector[i] = blockvec->address;
  1226.       blockvec = blockvec->next;
  1227.     }
  1228.   blockvector[0] = total_blocks;
  1229.  
  1230.   fwrite (blockvector, sizeof (int), total_blocks + 1, symfile);
  1231.   next_address += sizeof (int) * (total_blocks + 1);
  1232.  
  1233.   buffer.typevector = (struct typevector *) next_address;
  1234.  
  1235.   for (i = total_types; i > 0; i--)
  1236.     {
  1237.       typevector[i] = typevec->address;
  1238.       typevec = typevec->next;
  1239.     }
  1240.   typevector[0] = total_types;
  1241.  
  1242.   fwrite (typevector, sizeof (int), total_types + 1, symfile);
  1243.   next_address += sizeof (int) * (total_types + 1);
  1244.  
  1245.   buffer.sourcevector = (struct sourcevector *) symout_sources ();
  1246.  
  1247.   buffer.format = 1;
  1248.   buffer.textrel = 0;        /* These four will be set up by linker.  */
  1249.   buffer.datarel = 0;        /* Make them 0 now, which is right for */
  1250.   buffer.bssrel = 0;        /* looking at the .o file in gdb.  */
  1251.   buffer.ldsymoff = 0;
  1252.  
  1253.   buffer.version = (char *) next_address;
  1254.   symout_strings (ctime (&filetime), 0, 0, 0);
  1255.  
  1256.   buffer.compilation = (char *) next_address;
  1257.   symout_strings (ctime (&now), 0, 0, 0);
  1258.  
  1259.   buffer.filename = (char *) next_address;
  1260.   symout_strings (filename, 0, 0, 0);
  1261.  
  1262.   buffer.filedir = (char *) next_address;
  1263. #if defined( _MSDOS ) && ! defined( GNUDOS )
  1264.   strcpy (dir, getcwd (dir, MAXNAMLEN));
  1265. #else
  1266. #ifdef USG
  1267.   strcpy (dir, getcwd (dir, MAXNAMLEN));
  1268. #else
  1269. #ifndef VMS
  1270.   getwd (dir);
  1271. #else
  1272.   abort ();
  1273. #endif
  1274. #endif
  1275. #endif
  1276.   symout_strings (dir, 0, 0, 0);
  1277.  
  1278.   fflush (symfile);
  1279.  
  1280.   if (ferror (symfile) != 0)
  1281.     fatal_io_error (symfile_name);
  1282.  
  1283.   buffer.length = next_address;
  1284.  
  1285.   if (lseek (fileno (symfile), 0, 0) < 0)
  1286.     pfatal_with_name (symfile_name);
  1287.   if (write (fileno (symfile), &buffer, sizeof buffer) < 0)
  1288.     pfatal_with_name (symfile_name);
  1289.   close (fileno (symfile));
  1290. }
  1291.